inherited FRelatorioAcompSolicitacao: TFRelatorioAcompSolicitacao
  Caption = 'COMPRAS/SOLICITACAO/RELAT'#211'RIO ACOMPANHAMENTO'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel2: TPanel
    Caption = 'ACOMPANHAMENTO SOLICITA'#199#195'O'
  end
  inherited GroupBox1: TGroupBox
    object Label3: TLabel
      Left = 9
      Top = 85
      Width = 61
      Height = 16
      Caption = 'Solicitante'
    end
    object Label18: TLabel
      Left = 97
      Top = 136
      Width = 121
      Height = 16
      Caption = 'Centro de Custo (F8)'
    end
    object Label8: TLabel
      Left = 9
      Top = 136
      Width = 78
      Height = 16
      Caption = 'C'#243'd. C.Custo'
    end
    object Label4: TLabel
      Left = 9
      Top = 184
      Width = 37
      Height = 16
      Caption = 'Motivo'
    end
    object Label6: TLabel
      Left = 8
      Top = 29
      Width = 82
      Height = 16
      Caption = 'N'#186' Solicita'#231#227'o'
    end
    object dblSolicitante: TDBLookupComboBox
      Left = 9
      Top = 101
      Width = 408
      Height = 22
      KeyField = 'SOLI_CODIGO'
      ListField = 'SOLI_NOME'
      ListSource = dsSolicitante
      TabOrder = 2
      OnKeyDown = dblSolicitanteKeyDown
    end
    object DBLCentroCusto: TDBLookupComboBox
      Left = 97
      Top = 153
      Width = 321
      Height = 22
      Ctl3D = False
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = dsCentroCusto
      ParentCtl3D = False
      TabOrder = 4
      OnKeyDown = DBLCentroCustoKeyDown
    end
    object edCodCentroCusto: TEdit
      Left = 9
      Top = 153
      Width = 82
      Height = 22
      TabOrder = 3
      OnExit = edCodCentroCustoExit
    end
    object dblMotivo: TDBLookupComboBox
      Left = 9
      Top = 200
      Width = 409
      Height = 22
      KeyField = 'MOTI_CODIGO'
      ListField = 'MOTI_DESCRICAO'
      ListSource = dsMotivo
      TabOrder = 5
      OnKeyDown = dblSolicitanteKeyDown
    end
    object gbDataCadastro: TGroupBox
      Left = 107
      Top = 26
      Width = 223
      Height = 51
      Caption = ' Data Solicita'#231#227'o '
      TabOrder = 1
      object Label5: TLabel
        Left = 105
        Top = 20
        Width = 7
        Height = 16
        Caption = 'a'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object edDataCadastroIni: TDateEdit
        Left = 8
        Top = 19
        Width = 90
        Height = 23
        NumGlyphs = 2
        TabOrder = 0
      end
      object edDataCadastroFim: TDateEdit
        Left = 120
        Top = 19
        Width = 90
        Height = 23
        NumGlyphs = 2
        TabOrder = 1
      end
    end
    object rgTipo: TRadioGroup
      Left = 8
      Top = 229
      Width = 135
      Height = 76
      Caption = '  Tipo  '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      Items.Strings = (
        'Conv'#234'ncional'
        'Emerg'#234'ncial')
      ParentFont = False
      TabOrder = 6
    end
    object edNSolicitacao: TEdit
      Left = 8
      Top = 46
      Width = 81
      Height = 22
      TabOrder = 0
    end
    object rgRanking: TRadioGroup
      Left = 291
      Top = 229
      Width = 127
      Height = 77
      Caption = '  Com Ranking  '
      Items.Strings = (
        'Sim'
        'N'#227'o')
      TabOrder = 8
    end
    object rgOrigem: TRadioGroup
      Left = 155
      Top = 229
      Width = 127
      Height = 77
      Caption = '  Origem  '
      Items.Strings = (
        'Digitado'
        'P. Pedido')
      TabOrder = 7
    end
  end
  inherited RLReport: TRLReport
    Left = 32
    Top = 429
    DataSource = DSPesquisa
    object RLGroup1: TRLGroup
      Left = 38
      Top = 122
      Width = 718
      Height = 64
      DataFields = 'SOL_CODIGO'
      object RLBand2: TRLBand
        Left = 0
        Top = 0
        Width = 718
        Height = 28
        BandType = btHeader
        Borders.Sides = sdCustom
        Borders.DrawLeft = False
        Borders.DrawTop = False
        Borders.DrawRight = False
        Borders.DrawBottom = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        object RLDBText2: TRLDBText
          Left = 2
          Top = 11
          Width = 39
          Height = 16
          AutoSize = False
          DataField = 'SOL_CODIGO'
          DataSource = DSPesquisa
        end
        object RLDBText3: TRLDBText
          Left = 50
          Top = 11
          Width = 55
          Height = 16
          AutoSize = False
          DataField = 'SOL_DATA'
          DataSource = DSPesquisa
        end
        object RLDBText4: TRLDBText
          Left = 114
          Top = 11
          Width = 135
          Height = 16
          AutoSize = False
          DataField = 'SOL_SOLICITANTE_DESC'
          DataSource = DSPesquisa
        end
        object RLDBText5: TRLDBText
          Left = 258
          Top = 11
          Width = 159
          Height = 16
          AutoSize = False
          DataField = 'SOL_CENTROCUSTO_DESC'
          DataSource = DSPesquisa
        end
        object RLDBText6: TRLDBText
          Left = 426
          Top = 11
          Width = 143
          Height = 16
          AutoSize = False
          DataField = 'SOL_MOTIVO_DESC'
          DataSource = DSPesquisa
        end
        object RLDBText7: TRLDBText
          Left = 577
          Top = 11
          Width = 28
          Height = 16
          Alignment = taCenter
          AutoSize = False
          DataField = 'SOL_TIPO'
          DataSource = DSPesquisa
        end
        object RLDBText8: TRLDBText
          Left = 612
          Top = 11
          Width = 46
          Height = 16
          Alignment = taCenter
          AutoSize = False
          DataField = 'SOL_ORIGEM'
          DataSource = DSPesquisa
        end
        object RLDBText9: TRLDBText
          Left = 665
          Top = 11
          Width = 52
          Height = 16
          Alignment = taCenter
          AutoSize = False
          DataField = 'RANK_DATA'
          DataSource = DSPesquisa
        end
      end
      object RLBand3: TRLBand
        Left = 0
        Top = 28
        Width = 718
        Height = 25
        BandType = btColumnHeader
        Borders.Sides = sdCustom
        Borders.DrawLeft = False
        Borders.DrawTop = False
        Borders.DrawRight = False
        Borders.DrawBottom = True
        object RLLabel9: TRLLabel
          Left = 2
          Top = 8
          Width = 47
          Height = 16
          AutoSize = False
          Caption = 'C'#243'digo'
        end
        object RLLabel10: TRLLabel
          Left = 66
          Top = 8
          Width = 129
          Height = 16
          Caption = 'Descri'#231#227'o de Entrada'
        end
        object RLLabel11: TRLLabel
          Left = 426
          Top = 8
          Width = 30
          Height = 16
          Caption = 'Unid'
        end
        object RLLabel12: TRLLabel
          Left = 481
          Top = 8
          Width = 39
          Height = 16
          Caption = 'Quant'
        end
        object RLLabel13: TRLLabel
          Left = 543
          Top = 8
          Width = 44
          Height = 16
          Caption = 'Pedido'
        end
      end
      object RLBand5: TRLBand
        Left = 0
        Top = 53
        Width = 718
        Height = 16
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        object RLDBText10: TRLDBText
          Left = 2
          Top = 0
          Width = 39
          Height = 16
          AutoSize = False
          DataField = 'ITENSSOL_PRODCODIGO'
          DataSource = DSPesquisa
        end
        object RLDBText11: TRLDBText
          Left = 66
          Top = 0
          Width = 351
          Height = 16
          AutoSize = False
          DataField = 'ITENSSOL_PROD_DESC'
          DataSource = DSPesquisa
        end
        object RLDBText12: TRLDBText
          Left = 426
          Top = 0
          Width = 47
          Height = 16
          AutoSize = False
          DataField = 'UNIDADE'
          DataSource = DSPesquisa
        end
        object RLDBText13: TRLDBText
          Left = 481
          Top = 0
          Width = 40
          Height = 16
          Alignment = taCenter
          AutoSize = False
          DataField = 'FITENSSOL_QTD'
          DataSource = DSPesquisa
        end
        object RLDBText14: TRLDBText
          Left = 543
          Top = 0
          Width = 46
          Height = 16
          Alignment = taCenter
          AutoSize = False
          DataField = 'ITENSSOL_PEDCODIGO'
          DataSource = DSPesquisa
        end
      end
    end
    object RLBand4: TRLBand
      Left = 38
      Top = 105
      Width = 718
      Height = 17
      BandType = btColumnHeader
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = True
      object RLLabel1: TRLLabel
        Left = 2
        Top = 0
        Width = 22
        Height = 16
        AutoSize = False
        Caption = 'N'#186' '
      end
      object RLLabel2: TRLLabel
        Left = 50
        Top = 0
        Width = 31
        Height = 16
        Caption = 'Data'
      end
      object RLLabel3: TRLLabel
        Left = 114
        Top = 0
        Width = 65
        Height = 16
        Caption = 'Solicitante'
      end
      object RLLabel4: TRLLabel
        Left = 258
        Top = 0
        Width = 98
        Height = 16
        Caption = 'Centro de Custo'
      end
      object RLLabel5: TRLLabel
        Left = 426
        Top = 0
        Width = 41
        Height = 16
        Caption = 'Motivo'
      end
      object RLLabel6: TRLLabel
        Left = 577
        Top = 0
        Width = 28
        Height = 16
        Caption = 'Tipo'
      end
      object RLLabel7: TRLLabel
        Left = 612
        Top = 0
        Width = 46
        Height = 16
        Caption = 'Origem'
      end
      object RLLabel8: TRLLabel
        Left = 665
        Top = 0
        Width = 51
        Height = 16
        Caption = 'Ranking'
      end
    end
  end
  inherited QPesquisa: TQuery
    Active = True
    SQL.Strings = (
      'SELECT DISTINCT '
      '  SOLICITACAO.SOL_CODIGO,'
      '  SOLICITACAO.SOL_DATA,'
      '  SOLICITACAO.SOL_SOLICITANTE,'
      '  SOLICITACAO.SOL_CENTROCUSTO,'
      '  SOLICITACAO.SOL_MOTIVO,'
      '  SOLICITACAO.SOL_TIPO,'
      '  SOLICITACAO.SOL_ORIGEM,'
      '  SOLICITACAO.USUARIO_CADASTRO,'
      '  SOLICITACAO.USUARIO_AUTERACAO,'
      '  SOLICITACAO.USUARIO_EXCLUSAO,'
      '  SOLICITACAO.DATA_CADASTRO,'
      '  SOLICITACAO.DATA_EXCLUSAO,'
      '  SOLICITACAO.DATA_AUTERACAO,'
      '  SOLICITACAO.EXCLUIDO,'
      '  SOLICITACAO.SOL_SOLICITANTE_DESC,'
      '  SOLICITACAO.SOL_CENTROCUSTO_DESC,'
      '  SOLICITACAO.SOL_MOTIVO_DESC,'
      '  ITENSSOLICITACAO.ITENSSOL_CODIGO,'
      '  ITENSSOLICITACAO.ITENSSOL_SOL_CODIGO,'
      '  ITENSSOLICITACAO.ITENSSOL_PRODCODIGO,'
      '  ITENSSOLICITACAO.FITENSSOL_QTD,'
      '  ITENSSOLICITACAO.ITENSSOL_PEDCODIGO,'
      '  ITENSSOLICITACAO.ITENSSOL_QTDPEDIDO,'
      '  ITENSSOLICITACAO.ITENSSOL_OBS,'
      '  ITENSSOLICITACAO.USUARIO_CADASTRO AS USUARIO_CADASTRO1,'
      '  ITENSSOLICITACAO.USUARIO_AUTERACAO AS USUARIO_AUTERACAO1,'
      '  ITENSSOLICITACAO.USUARIO_EXCLUSAO AS USUARIO_EXCLUSAO1,'
      '  ITENSSOLICITACAO.DATA_CADASTRO AS DATA_CADASTRO1,'
      '  ITENSSOLICITACAO.DATA_EXCLUSAO AS DATA_EXCLUSAO1,'
      '  ITENSSOLICITACAO.DATA_AUTERACAO AS DATA_AUTERACAO1,'
      '  ITENSSOLICITACAO.EXCLUIDO AS EXCLUIDO1,'
      '  ITENSSOLICITACAO.ITENSSOL_PROD_DESC,'
      '  RANKING.RANK_DATA,'
      '  RANKING.RANK_SOLICITACAO'
      'FROM'
      '  SOLICITACAO'
      
        '  INNER JOIN ITENSSOLICITACAO ON (SOLICITACAO.SOL_CODIGO = ITENS' +
        'SOLICITACAO.ITENSSOL_SOL_CODIGO)'
      
        '  LEFT OUTER JOIN RANKING ON (SOLICITACAO.SOL_CODIGO = RANKING.R' +
        'ANK_SOLICITACAO)')
    object QPesquisaSOL_CODIGO: TIntegerField
      FieldName = 'SOL_CODIGO'
    end
    object QPesquisaSOL_DATA: TDateTimeField
      FieldName = 'SOL_DATA'
      DisplayFormat = 'DD/MM/YY'
    end
    object QPesquisaSOL_SOLICITANTE: TIntegerField
      FieldName = 'SOL_SOLICITANTE'
    end
    object QPesquisaSOL_CENTROCUSTO: TIntegerField
      FieldName = 'SOL_CENTROCUSTO'
    end
    object QPesquisaSOL_MOTIVO: TIntegerField
      FieldName = 'SOL_MOTIVO'
    end
    object QPesquisaSOL_TIPO: TStringField
      FieldName = 'SOL_TIPO'
      FixedChar = True
      Size = 1
    end
    object QPesquisaSOL_ORIGEM: TStringField
      FieldName = 'SOL_ORIGEM'
      FixedChar = True
      Size = 1
    end
    object QPesquisaUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object QPesquisaUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object QPesquisaUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object QPesquisaDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object QPesquisaDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object QPesquisaDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object QPesquisaEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QPesquisaSOL_SOLICITANTE_DESC: TStringField
      FieldName = 'SOL_SOLICITANTE_DESC'
      Size = 40
    end
    object QPesquisaSOL_CENTROCUSTO_DESC: TStringField
      FieldName = 'SOL_CENTROCUSTO_DESC'
      Size = 60
    end
    object QPesquisaSOL_MOTIVO_DESC: TStringField
      FieldName = 'SOL_MOTIVO_DESC'
      Size = 40
    end
    object QPesquisaITENSSOL_CODIGO: TIntegerField
      FieldName = 'ITENSSOL_CODIGO'
    end
    object QPesquisaITENSSOL_SOL_CODIGO: TIntegerField
      FieldName = 'ITENSSOL_SOL_CODIGO'
    end
    object QPesquisaITENSSOL_PRODCODIGO: TIntegerField
      FieldName = 'ITENSSOL_PRODCODIGO'
    end
    object QPesquisaFITENSSOL_QTD: TIntegerField
      FieldName = 'FITENSSOL_QTD'
    end
    object QPesquisaITENSSOL_PEDCODIGO: TIntegerField
      FieldName = 'ITENSSOL_PEDCODIGO'
    end
    object QPesquisaITENSSOL_QTDPEDIDO: TIntegerField
      FieldName = 'ITENSSOL_QTDPEDIDO'
    end
    object QPesquisaITENSSOL_OBS: TStringField
      FieldName = 'ITENSSOL_OBS'
      Size = 100
    end
    object QPesquisaUSUARIO_CADASTRO1: TStringField
      FieldName = 'USUARIO_CADASTRO1'
    end
    object QPesquisaUSUARIO_AUTERACAO1: TStringField
      FieldName = 'USUARIO_AUTERACAO1'
    end
    object QPesquisaUSUARIO_EXCLUSAO1: TStringField
      FieldName = 'USUARIO_EXCLUSAO1'
    end
    object QPesquisaDATA_CADASTRO1: TDateTimeField
      FieldName = 'DATA_CADASTRO1'
    end
    object QPesquisaDATA_EXCLUSAO1: TDateTimeField
      FieldName = 'DATA_EXCLUSAO1'
    end
    object QPesquisaDATA_AUTERACAO1: TDateTimeField
      FieldName = 'DATA_AUTERACAO1'
    end
    object QPesquisaEXCLUIDO1: TStringField
      FieldName = 'EXCLUIDO1'
      FixedChar = True
      Size = 1
    end
    object QPesquisaITENSSOL_PROD_DESC: TStringField
      FieldName = 'ITENSSOL_PROD_DESC'
      Size = 60
    end
    object QPesquisaRANK_SOLICITACAO: TIntegerField
      FieldName = 'RANK_SOLICITACAO'
    end
    object QPesquisaUNIDADE: TStringField
      FieldKind = fkLookup
      FieldName = 'UNIDADE'
      LookupDataSet = DMGestao.QProdutoEnt
      LookupKeyFields = 'PROD_CODIGO'
      LookupResultField = 'PROD_UNIDSAIDA'
      KeyFields = 'ITENSSOL_PRODCODIGO'
      Size = 10
      Lookup = True
    end
    object QPesquisaRANK_DATA: TDateTimeField
      FieldName = 'RANK_DATA'
      DisplayFormat = 'DD/MM/YY'
    end
  end
  object dsSolicitante: TDataSource
    DataSet = DMGestao.QSolicitante
    Left = 800
    Top = 168
  end
  object dsCentroCusto: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 800
    Top = 200
  end
  object dsMotivo: TDataSource
    DataSet = DMGestao.QMotivoSolicitacao
    Left = 800
    Top = 232
  end
end
